home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / H-L / Invoicer.cpt / Open Me First < prev    next >
Text File  |  1987-03-10  |  2KB  |  59 lines
  1. CLS
  2. CLOSE #1
  3.  
  4. OPEN "title picture" FOR INPUT AS #1
  5. title$=INPUT$(LOF(1),#1)
  6. CLOSE #1
  7. PICTURE(230,20),title$
  8. Beginz:
  9.     BUTTON 1,1,"New invoice",(20,25)-(200,45),1
  10.     BUTTON 2,1,"Repeat invoice",(20,55)-(200,75),1
  11.     BUTTON 3,1,"Record payment",(20,85)-(200,105),1
  12.     BUTTON 4,1,"Accounts billed",(20,115)-(200,135),1
  13.     BUTTON 5,1,"Accounts received",(20,145)-(200,165),1
  14.     BUTTON 6,1,"Customer history",(20,175)-(200,195),1
  15.     BUTTON 7,1,"Outstanding",(20,205)-(200,225),1
  16.     BUTTON 8,1,"New customer",(20,235)-(200,255),1
  17.     BUTTON 9,1,"Sales tax",(20,265)-(200,285),1
  18.     BUTTON 10,1,"Quit",(230,265)-(455,285),1
  19.     BUTTON 11,1,"Monthly statement",(230,235)-(455,255),1
  20.     BUTTON 12,1,"Address ...",(230,205)-(455,225),1
  21.   YourChoice:
  22.     WHILE DIALOG(0)<>1:WEND
  23.      Buttonpushed=DIALOG(1)
  24.       IF Buttonpushed=1 THEN LOAD "Invoicer",R
  25.       IF Buttonpushed=2 THEN LOAD "RepeatInvcr",R
  26.       IF Buttonpushed=3 THEN LOAD "Payments",R
  27.       IF Buttonpushed=4 THEN LOAD "Accounts Billed",R
  28.       IF Buttonpushed=5 THEN LOAD "Accounts Rec'd",R
  29.       IF Buttonpushed=6 THEN LOAD "CustHist",R
  30.       IF Buttonpushed=7 THEN LOAD "Outstanding",R
  31.       IF Buttonpushed=8 THEN LOAD "NewCust",R
  32.       IF Buttonpushed=9 THEN LOAD "Sales Tax",R
  33.       IF Buttonpushed=10 THEN SYSTEM
  34. REM Road To Nowhere
  35.       IF Buttonpushed=11 THEN GOTO Where2
  36.       IF Buttonpushed=12 THEN LOAD "Addresser",R
  37.       
  38.  Where2:
  39.       FOR x = 1 TO 12
  40.           BUTTON CLOSE x
  41.       NEXT
  42.     BUTTON 1,1,"monthly activity",(25,50)-(200,100),1
  43.     BUTTON 2,1,"invoices outstanding",(25,120)-(200,170),1
  44.     BUTTON 3,1,"never mind",(25,190)-(200,240),1
  45.     WHILE DIALOG(0)<>1:WEND
  46.     ButtonPushed = DIALOG(1)
  47.     IF ButtonPushed = 1 THEN BUTTON CLOSE 1: BUTTON CLOSE 2: BUTTON CLOSE 3: CLS: LOAD "Statement",R
  48.     IF ButtonPushed = 2 THEN BUTTON CLOSE 1: BUTTON CLOSE 2: BUTTON CLOSE 3: CLS: LOAD "Invoice Statement",R
  49.     IF ButtonPushed = 3 THEN BUTTON CLOSE 1: BUTTON CLOSE 2: BUTTON CLOSE 3: GOTO Beginz
  50.  
  51.  
  52. STOP
  53.  
  54.       
  55.  
  56.  
  57.  
  58.  
  59.